MAPS
Photo from Wikipedia Commons
No cord or cable can draw so forcibly, or bind so fast, as love can do with a single thread…
— Robert Burton
Route map of the world’s major operating and planned submarine cable systems and landing stations.
cables <- read.csv("archetypes/fusion-cables/fusion-cables.csv", header = TRUE, stringsAsFactors = FALSE, as.is=T)
cables
landing_points = read.csv("archetypes/fusion-cables/fusion-landing-points.csv", header = TRUE, stringsAsFactors = FALSE, as.is=T)
landing_points
# PLOT NATURAL EARTH BORDERS
ne_world <- ne_countries(scale = "small", returnclass = "sf")
# class(ne_world)
theme_opts <- theme(
legend.position="none",
plot.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background=element_rect(fill="white", colour="white"),
panel.border = element_blank()
)
v1 <- ggplot(data = ne_world) +
geom_path( data = cables, aes(x=longitude, y=latitude, group=factor(id)), color=cables$color, size=0.5) +
geom_sf(fill="#f0f0f0", color="#888888", stroke=0.5) +
geom_point( data = landing_points, aes(x=lon, y=lat ), shape=21, size=1, fill="#ffffff", color="#111111", stroke=0.5 ) +
scale_color_tron() +
scale_fill_tron() +
ylim(-53,80) + # removes Antarctica
theme_bw() +
labs(x="",
y="",
title = "Routes Map",
subtitle="Submarine Cable Map") +
theme_opts
girafe(ggobj = v1, width_svg = 16, height_svg = 8,
options = list(opts_sizing(rescale = TRUE, width = 1.0))
)